home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 November / 1992-11.d64 / locate demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  673b  |  37 lines
  1. 10 rem"[169][147] [210][255] [253][174] [158][183][134] [253][174] [158][183][138][168][166][224][176]![192]([176] [240][255][160][136][177]Z[170][224],[208][234] [253][174] [158][183][224][176][142][134]{$60}[162]l[139][227]
  2. 20 cl[178][194](43)[170]256[172][194](44)[170]14:at[178]cl[170]5:bb[178]at[170]110
  3. 30 a$[178]"l o c a t e":b$[178]"locate"
  4. 40 pp[178]15
  5. 50 [151]53280,0:[151]53281,0
  6. 60 [158]cl,10,09,1:[153]a$
  7. 70 [129]a[178] 1 [164] 09
  8. 80 [158] at,a,a,a:[153]b$
  9. 81 [158] at,a,35[171]a,a:[153]b$
  10. 90 [130]
  11. 100 [129] a[178]13 [164] 1 [169] [171]1
  12. 110 [158] at,a[170]10,a[170]10,15[171]a:[153]b$
  13. 120 [130]
  14. 130 [129] a[178]1 [164]100
  15. 140 [158]at,10,09,a[171][181](a[173]15)[172]15:[153]a$
  16. 150 [130]
  17. 160 :
  18. 170 [158]cl,5,3,1
  19. 180 [153]"locate allows you to position text"
  20. 190 [158]at,7,5,2
  21. 200 [153]"anywhere"
  22. 210 [158]at,9,13
  23. 220 [153]"on"
  24. 230 [158]at,11,15
  25. 240 [153]"the
  26. 250 sysat,13,20
  27. 260 print"screen"
  28. 270 sysat,pp,5,3
  29. 280 print"in"
  30. 290 sysat,pp,10,6
  31. 300 print"any"
  32. 310 sysat,pp,15,11
  33. 320 print"color"
  34. 330 fora=0 to 15:sysat,pp,22+a,a
  35. 340 print"!"
  36. 350 next
  37.